EEE 
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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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SSSSSSSS TITITTTTTT RRRRRRRR AAAAAA PPPPPPPP PPPPPPPP EEEEEEEEEE NN NN DDDDDDDD 
SSSSSSSS TTTTTTTTTT RRRRRRRR AAAAAA PPPPPPPP PPPPPPPP EEEEEEEEEE NN NN DDDDDDDD 
SS TT RR RR AA AA PP PP PP PP EE NN NN DD DD 
$$ TT RR RR AA AA PP PP PP PP EE NN NN DD DD 
SS TT RR RR AA AA PP PP PP PP EE NNNN NN DD DD 
SS TT RR RR AA AA PP oe PP EE NNNN NN DD DD 
SSSSSS TT RRRRRRRR aa AA PPPPPPPP PPPPPPPP EEEEEEEE NN NN NN DD DD 
SSSSSS TT RRRRRRRR aa AA PPPPPPPP PPPPPPPP EEEEEEEE NN NN NN DD DD 
$$ TT RR RR AAAAAAAAAA PP PP EE N NNNN DD DOD 
S$ TT RR RR AAAAAAAAAA PP PP EE NN NNNN DD DD 
$$ TT RR RR Aa AA PP PP EE NN NN 0D DD cece 
$s TT RR RR AG AA PP PP EE NN NN DD DD cece 
SSSSSSSS TT RR RR AA AA PP PP EEEEEEEEEE NN NN DDDDDDDD cece 
SSSSSSSS TT RR RR AA AA PP PP EEEEEEEEEE NN NN DDDDDDDD cece 
LL IIIT] SSSSSSSS 
LL IIIIII SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL T1111 SSSSSSSS 
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MODULE STRSAPPEND ( ! Append a string to the end of the destination 
IDENT = '1-007" ! File: STRAPPEND.B32 Edit: DG1007 


) = 
BEGIN 


' 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT EORPORATION, - MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
* 
® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
® 
® 
® 
® 
* 
a 
® 
® 
® 
® 


!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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g 
§ Se :* CORPORATION. 
® 
2 26 ‘ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ SH : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
a '® 
5 080 VRE AAER AEE AAA ERATE AAA AAAS 
031 ! 
3 03 
3 03 '+4 
3 bee } FACILITY: String support Library 
; 036 ! ABSTRACT: 
3 037 ! This routine appends the input pring onto the end of the 
3 038 ; the destination string. It will handle strings of any 
i $44 supported dtype or class. 
: bes ENVIRONMENT: User mode, AST level or not or mixed 
2 D048 AUTHOR: R. Will, CREATION DATE: 12-Nov-79 
4 bo2s ! MODIFIED BY: 
4 R068 ! 
4 04 'R. Will, erate * VERSION 01 
4 B88 i 1-001 - 
4 04 ! 1-002 - Str °9 "speedup status from alloc and dealoc macros. 
5 0050 1} -Jan-1986 
5 Opes ! 1-003 - Soaken to be able to deal with a Larger class of string 
5 O26 : descriptors. Uses $STRSGET_LEN_ ADDR © extract length and 
5 05 : address of data ot of a var ety of source dence peters. 
5 054 : CASE on cheese of output geacrip or expanded to allow writing 
5 055 : of “ere CLASS_D and CLASS_V 
5 026 : RKR 1 PR-1 
5 05 ! 1-004 - Speed up code. RKR 7-OCT-1981. 
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' 1-005 - Fix for SPR 11-55716 aserevging problem when appending 

i truncated source string ASS_VS descriptor gcquse the 
: tal Length would exceed MAXSTAL ER. RKR 18=AP 

: 1-006 - Aga support for class SO strin Soret sere, at -0ct-1983. 
14 = Change class SO string descriptors to SB. Feb-1984,. 
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SWITCHES: 


SWITCHES ADDRESSING MODE 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


| LINKAGES: 


REQUIRE 'RTLIN:STRLNK'; 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
STRSAPPEND; 


; INCLUDE FILES: 


REQUIRE ‘RILIN:RILPSECT®: 
REQUIRE *RTLIN:STRMACROS'; 
LIBRARY ‘RTLSTARLE'; 


MACROS: NONE 


i EQUATED SYMBOLS 


! 

' 

' 

LITERAL 

MAX_SIZE = 65535; 


PSECT DECLARATIONS 


DECLARE _PSECTS (STR); 
' 


OWN STORAGE: NONE 


i EXTERNAL REFERENCES: 


' 
i 
i 
_- LITERAL 


! STARLET L 


9 
1b-Sen-1984 01:26:47 


Use require file with string Linkages 


append the input string to the end 


of the destination string 


Declare PSECTS code 


use shrine macros to write code 
brary for macros and symbo's 


! Largest string we can handle 


' signal illegal class error 


' signal string too | 
! status -- truncat 


AX-11 Bliss-32 V4.0-74 
LIBRTL.SRCJSTRAPPEND.B32;1 


ong 
ion (warning) 


STRSAPPEND 
1-00 LIBRTL.SRCJSTRAPPEND .B52; 1 (3) 
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GLOBAL ROUTINE STRSAPPEND ( ! append 


ST_DESC, 
C_BeSsc ! pointer to source descriptor 


string to the end of another 
! pointer to destination descr. 


> 3:8 ! 


+ 
FUNCTIONAL DESCRIPTION: 


This routine takes a source string of -~ supported dtype and 
class, and appends that string to the end of the destination string, 
which nay be of any Supper see class or dtype, except that 3 
impossible to add something to the end of a string having fixed-length 
! semantics -- an error will always be signalled in that case 


FORMAL PARAMETERS: 


DEST _DESC.wt.dx 
SRC_BESC.rt.dx 


IMPLICIT INPUTS: 


pointer to destination descriptor 
pointer to source descriptor 


NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
STRSTTRU frosetion -- a warning 


SIDE EFFECTS: 


STRS_ILLSTRCLA may be signalled if the destination string is 
of fixed-length semantics 
or undefine 

STRS_STRTOOLON if name fe lengths of source and destination 


DPV SVS BB BS BS EB BE AAA AAAI AI POnnononononons 
WN OS ODNA VE WN OS OONOAUE WW 9 ODNOU SWAN" OOONOAUES WN 00 


10909 09 08 NIN SIS NSN NSO OO Ay Se ELS het Abe Shey Spt thet Mee mae yy yt PR Tt pat yy ee tee 


ee ee ee iii ee ee ee ee eee 
ee ee re ee ee ee eee SS’ 


WANA AAA AAI AAA AA AAA AAA AAA MAA AAA. AWA AAA AAA AAA AA AAA AANA 


PIP ISHIM IPI PIN IM NIN 3 at at at a st hd hh 


exceed 65K in a dynamic string destination. 
Dynamic string space may be allocated or deallocated 
6 == 
6 
64 BEGIN 
65 
$6 LOCAL 
6 SRC_LEN ' Length of source string 
$8 SRC~ADDR, ! addr of ist byte of source 
$ DEST_LEN ' Length of destination string 
0 DEST-ADDR, ' addr of ist byte of dest. 
TOT_CEN ' sum of src and dst Length 
7 RETORN_STATUS; ! status from macros 
MAP DEST_DESC : REF S$STRSDESCRI 
MAP SRC_BESC : REF SSTRSDESCRIP 


Be Oe Be Oe Se Be Oe Oe OH Be Oe Be Se BH Se Be Se Be Be Se SHH Se Se Se Se Se Se Se Se Se Se He Se Se SE Se See Se Se Se Se Se Se Se Se Se Se Se Se Sete teas 


9 


5 7 
i RETURN_STATUS = 1 ; ! Assume success 

8 7 + 

9 9 ! find Lengths and aterting addresses of strings we're dealing with, 

' and their combined lengths. 

4 le 

38 : SSTRSGET_LEN_ADDR (SRC_DESC, SRC_LEN, SRC_ADDR) ; 
: SSTRSGET_LEN_ADDR (DEST_DESC, DEST_LEN, DEST_ADDR) ; 


TOT_LEN = .SRC_LEN + .DEST_LEN ; 


14 
! if the combined lengths are greater that 65K, the result is not 


aaa at ak mt at st at ek st = 2 a ts 2 tt et a 


PREPIPIPININININININNININININININD 2 2 9 OO OS SS 


Pee Oe Oe Os Se Se SH Oe Se oe OH St Se Os Se SESH Se SH Se SHS e SHEE Se ee SESH estes 


94 
95 3 
3 8% 
98 89 
99 90 
00 91 
01 9 ! going to fit in any class of descriptor we support -- return 
Og 9 ! STRS_STRTOOLON. 
04 3s 5 
#4 38 IF .TOT_LEN GTR MAX_SIZE THEN LIBSSTOP (STRS_STRTOOLON) ; 
07 98 
08 99 + 
09 409 ! Algorithm for writing output differs based on the class of the 
10 401 : destination descriptor. The operation of appending is defined only 
1 re ! for class CLASS_D and CLASS_VS destination strings. 
ig 404 
14 405 CASE .DEST_DESC CDSC$B_CLASS] 
12 $38 PRGA Fe OR CLASS A TO BSCSK_CLASS_SB OF 
2 


SIREAPPEND 1$-Se0-] 984 04:26:42 VANS OL 24282 4.0574 
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18 0 ‘+ 
19 0 ! dynamic destination strings 
0 1  geereeteeeneeereeereeeeenhe 
1 1 t= 
§ COSCSK_CLASS_DJ: 
Oe 
$ L ZIF XBLISS (BLISS16) OR XBLISS (BLISS36) 
U Z THEN ' except on VAX 
8 U SSTRSOVERLAP ( .SRC_ADOR, .SRC_LEN ! If src overlaps 
a U CHSPLUS (.DEST_ADDR, .DEST_LEN),! with where it will be 
0 U « SRC_CEN) ! written 
1 U OR 
§ <F ! or if dest. not large 
Pp (SSTRSNEED_ALLOC ( ! enough for append 
$e -TOT_LEN, ($STRSDYN_AL_LEN (DEST_DESC) ) ) ) 
5 HEN T then allocate a temp 
36 ' and use or 
37 BEGIN ! building output string 


BEGIN ! movement acecthy into output string 
CHSMOVE ( .SRC_LEN, .SRC_ADDR, 
CHSPCUS (.DESTTADDR. .DEST_LEN)); 


DEST_DESC CDSCSW_LENGTH] = .TOT_LEN ; ! adjust size of 
i ! result string 
aqegpens girestty into output string 


PAQUIN 


ee ee ee ee ee ee ee ee ne ee 
Po ot oe et et at ek el ak tal ak a a-ak et et et ek ek ed et et ek et et ee De ee eee ee et 


PUPP BS BS BS SE BEE BAAN NIA NAIA PININPININININ 2 OS 
PIES BB BBE EDAD MMT BU BB EWE BAIN NIIIIIononunonory 
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Bee Se Be Se Se Ge Se Ge Se Ge Se FH Se Se BH Se Se Se OH Se Oe BH Se Se BH Se OH Se Ge Ss Be Se Se SH Se Se Se Se Se Se Se Se Se Se Se ee Sees 


37 
sip LOCAL TEMP_DESC : SSTRSDESCRIPTOR; 
sei IF (RETURN _STATUS = SSTRSALLOCATE (.TOT_LEN, TEMP_DESC)) 
seg THEN 
st BEGIN 
44 CHSMOVE (.DEST_LEN, .DEST_ADDR, ! move dest to temp 
st? - TEMPDESC COSCSA_POINTERJ); 
ste CHSMOVE (.SRC_LEN, ! move src to end of temp 
49 CHSPCUS (.TEMP_DESC CDSCSA_POINTER], .DEST_LEN)); 
251 
§ ¢ '“switch temp and dest 
254 RETURN_STATUS = ! deallocate temp 
§ 2 . SSTRSDEALLOCATE (TEMP_DESC); 
2 . END "1 of append via temp descriptor 
$35 
0 
a 
64 
265 
266 


END; 
END; 


of Class 


SSTRSEXCH_DESCS (TEMP_DESC, DEST_DESC); 
| 


ee ee ee eH ey 
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i Varying string descriptor 
' Reeeeeeereaeeeeereeeeeeaere 


PAPO UIIN 


NOOO 


upeces CLASS_VS]: 
IF .TOT_LEN GTRU .DEST_DESC COS(SU_RAXSTRL N) 
THEN ! resultant string won't fit within 
BEGIN ! MAXSTRLEN of allocated string. 
14 
' Copy as much as is 
given by MAXSTRLEN 


CHSMOVE ( 
CDs 
s¢ 
C 


SCSA_POINTER] + 


po This length is 


OOOO N ANNAN NNN NSO 


C$w MAXSTALEN) - 
DSCSA_POINTER])<0,16>, 
C 

) 


i¢ 
Adjust CURLEN field to reflect the new length 


(.DEST_DESC COSC$A_POINTER])<0,16> = 
. BEST_DESC CDSC$W_MAXSTRLEN); 

| 

| 


RETURN_STATUS = STRS_TRU; 
END ! won't fit within MAXSTRLEN 
BEGIN ' will fit within MAXSTRLEN 
i Move source data directly into varying 
! ea starting at byte just beyond the Last 
byte hat is currently there. 
CHSMOVE (.SRC_LEN, .SRC_ADDR 
(.DEST_DESC COSCSA_POINTER] + 
-DEST_LEN + 2) ); 


14 


; Adjust CURLEN field to reflect the new length 
ae (.DEST_DESC COSC$A_POINTER])<0,16> =.TOT_LEN ; 
END; "! of Class_VvS 
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7 4- LIBRTL APPEND .B32;1 (6 
: 18 1 $ '¢ 
: 1 1 i otherwise we have an undefined class of descriptor, or a descriptor 
; 0 1 ; ! which has fixed-length string semantics. In either case, its an 
: 1 : % - error to try to append to it. 
; 5 1511 2. CINRANGE , OUTRANGE): 
; 326 1 Ig RETURN_STATUS = STRS_ILLSTRCLA; 
4 3 1 ie on 
: $ 1515 SSTRSSIGNAL_FATAL (RETURN, STATUS); ! signal if fatal error 
: 3 18 RETURN .RETORN_STATUS no nore tere errors 
3 oss 
3 $3 1516 END; ! End of STRSAPPEND 


| 
| 
| 
| 
| 
| 
TITLE STRSAPPEND 
IDENT \1-007\ 
.EXTRN STRS$_ILLST RCLA, STR$_STRTOOLON 
XTRN STRS"TRU, STRS$ NORMA 
EXTRN LIBS$STOP STRSANALYZE SDESC_R1 
EXTRN STRSSINIT, STRSSV_INIT 
EXTRN STRS$ALOC.SH 
EXTRN STR$$Q SHORT Q, LI 
EXTRN STRS TNSV I RMEM, att R1 
EXTRN LIBSFREE_VM, STRS_FATINTERR 
.PSECT _STRSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ENTRY STRSAPPEND, Save R2,R3,R4,R5,R6,R7,RB,R9,- = 1319 
SE 14 C2 00002 SUBL2 #20, SP : 
58 01 DO 90005 MOVL #1, RETURN. STATUS + 1377 
50 08 AC 00 00008 MOVL  SRC_DESC, RO + 1384 
cae ati 7 
5A 60 3C¢ O00t¢ MOVZWL (RO), SRC_LEN : 
59 04 Ad 06 0013 MOVE R05, SRT_ADDR 
- 000000006 99 16 0018 1$: JSB STRSANALYZE_ SDESC_R1 
59 51 DO 00024 MOVL R1. RO : 
57 04 AC DO 00027 2s: MOVL EST DESC, R7 : 1386 
02 03 91 Range eww ERT ; 
58 67 3¢ 00 1 MOVZWL (R7), DEST_LEN : 
5 04 ay bg 00 ROVL 4R7S, DEST_ADDR 
50 gf D0 0 A 3$: MOVL  _R7, RO : 
000000006 0 1 p JSB STRSANALYZE_SDESC_R1 : 
D 0 4 MOVL RO, RS : 
2 1D 4g MOVL. Ri ; 
é A 8 C 49 4$: ADDL3 best” LEN, + AikS LEN. TOT_LEN > 1388 
OOOOFFFF  8F 6 b 4D CMPL TOT_CEN, 3 ; 1396 
000000006 8F DD 0086 PUSHL  #STRS$_STRTOOLON : 
000000006 00 1 FB C CALLS #1, LIBSSTOP : 
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TRSAPPEND 16-50 Sep-1 AX-11 Bliss-32 V4.0-74 Page 11 STR 
3158) yea eea 88s 93:28:65 | ete Osa e es FR abpEty B80.1 a 1-0 

0104 31 OOOFE 19$:  BRW 33$ ; ; 

7 000000006 0 E8 001 F 20$:  BLBS  STRS$V VAINIT 21$ + 1431 : 

000000006 0 FB 108 CALLS #0 TR : : 

000000006 8F DO OO10F 218:  MovL  asfr eet RETURN_STATUS : : 

Q00000FO aF 4 D1 116 CMPL 19 LEN, #246 : : 

— 1A 0011D BGTRU 2 : ; 

6 DS OO11F TSTL ToT LEN : ; 

4 1 1 BNEQ 223" 3 : 

4 dé 001 CLRL ‘TEMP : ; 

D 11 001 BRB 26$ : : 

51 FF ag 9€ 00127 22$ NOVA -1(R6), RI : : 

3] : BA 108 BICB2 #7, R : F 

5 0000000060041 9E 0010E MOVAB STR$$Q_SHORT_Q[R1], REMQUE_ADDR : F 

54 00 85 OF 00136 238:  REMQUE @0(REMGUE_ADDR), TEMP : : 

06 1D 0013A BVS 24$ : : 

53 1 00 4 C MOVL #1, ALLOC_DONE : : 

08 11 0013F BRB 25$ : : 

D4 00141 26%:  CLRL ALL oc DONE F : 

56 DD 00143 PUSHL T : : 

000000006 00 1 FB 0145 CALLS #1, “STRSSALOC SHORT : : 

05 3 £8 0014C 25$:  BLBS ALLOC_D 2 ; ; 

2c 0 £9 0014F BLBC ~— RETURN bere tus: 29$ : ; 

E2 11 00152 BRB : ; 

27 E9 00154 26$: BLBC RETURN STATUS 298 : ; 

10 AE 54 D0 00197 MOVL TEMP, TEMP_DESC+ : : 

1D 11 00158 BRB ; : 

10 AE 9F 0015D 27$:  PUSHAB TEMP _DESC+4 ; : 

04 AE 56 DO 00160 MOVL _—«*‘TOT CEN 4(SP) : ; 

04 AE 9F 00164 PUSHAB 4( : ; 

000000006 00 02 FB 00167 CALLS $GET_V : : 

09 50 €8 0016E aLBS artunne STATOS, 28$ : : 

50 000000006 &8F DO 00171 MOVL § #STRS_INSVIRMEM, RETURN_STATUS : ; 

04 11 00178 BRB 29 $ : : 

Oc AE 56 BO OO17A 88: MOVW T_LEN, TEMP DES C : F 

58 50 DO OO17E 29$: MOVL RETOR RN_STATUS; RETURN_STATUS ; : 

7F 50 €9 00181 BLBC_ ——- RETURN7STA : ; 

10 BE 6 58 28 00184 MOVC3 DEST LEN, “est ADDR), aTEMP_DESC + 1435 ; 

10 BE48 6 SA 28 00189 movC3 sRc_CEN C_ADDR), a@TEMP MDESESACDEST _LEN] : 1439 : 

51 04 AC 00 0018 MOVL DEST_D Ec + 1441 : 

04 AE 61 BO 00193 MOVW = (R11) ES, RT P_DESC ; ; 

08 AE 04 Al 00 0197 MOVL 4(RIS, SSTRSTERP. DESC +4 ; : 

O€ Ar 02. «Al : 19¢ MOVW 2(R1). TEMP DESCF2 : : 

5 0c Ar E OO1A1 MOVAB TEMP DESC, : ; 

000000006 00 16 O01A5 JSB STRS$MOVG. R1 : : 

OC AE 4 AE BO 001 MOVW STRSTEMP-DESC, TEMP_DESC : ; 

10 A 8 AE 00 0018 MOVL § $STRSTEMP™DESC+4 TERP DESC +4 : : 

; 000000006 8F DO 0018 MOVL &#STR$_NOR RAAL, RETURN_STATUS + 1445 ; 

10 AE dO 0018 MOVL § TEMP_DESC+4, R2 ; j 

3E 13 O01C BEQL 31$ : : 

OOFO BF Oc AE Bi 1¢ CMPW  TEMP_DESC, #240 : ; 

1A 1A O01 BGTRU 30S : : 

51 52 00 OOICA OVL  R2, STRING BLOCK : : 

51 FE AT 3¢ 10D MOVZWL -2(STRING_ BLOCK), ALLOC_LENGTH ; | ; 

1 1D1 i ~ - : 3 

51 7 BA 001D3 BICB2 7, R1 : ; 

1 0000000060041 9E 00106 MOVAB STRS$Q SHORT QrRI}. INSQUE _ADDR : : 

00 «81 62 OE 001DE INSQUE (R2), SOCINSQUE_A : : 


eee a oe — 


co 
1 
We 


NA Wemyss ws ~ Ms onNM Wels] 
-o -—MnNnoo rr ~ wmooococo— -— 
~~ vwvwvwvwvw wv Tr wwwevewun ww 
oococroeroe — - eee -— 
e 
oa Pete Fe te Fe Fe Fe Fe FS Fe FR FR FR FO FR HR HR FS FR FS FSFE FSFE FS FO TR HS FSO PEFR HS 
e 
a 
tom] 
a 
a 
a 
< 
' 
— 
nw 
w 
- a 
ee ws 
™N ~ 
ue ” z 
w7@ =) w 
~ nw 
‘a <za> @ 
o2z —— ~ 
ow “=et Ww Oo w 
ro —- w ” « Re 
>a. zy» a > ~ 
<q aen~ z - ™N . 
we 22 w a~ « ”“ 
me eo s ad o - . > 
mw won t oc ww” On -_ 
ar aze~— - c~ ‘(ana “a 
“nu - w oa Oo un 2 a fee o 
cx ~ mM xc oa _— . « a Mw i 4 
aN aqt = < 2-232 2a" ‘ 
@e- “ > a 1 . wr —- ww me Zz . 
ad ~ wn Va A ac Ww wVeeCune WwW WwW 
aed Ft woefD> cet F- o-ac x~s5a7> 2a> 
—-x ~w we2ze- wa -—ar. Kore - OF 
‘@ * : @dat=-at ~w ~ oO wda +s Yw@Bbaw area 
<— ev eee cwPFeaD w -oc ewe 
<x Wn ANaEw ss ed ouTregc Oa + Ww NAW 
ee ee: ee a e  -,  e a) cer 22 t= mt 
CT = on? ae” ae ee a Ww £ wwe 2 Zz 
{Rroceace ait ~—aenw~ WM KAYIITe Fu 
aaa Oar te vel: en) ee ee > a 
PEL e—-—RHO-*M BR 3 LOVE We 
~O RK WWYHWWOWOGOWOWONETON~ - fT MOwY TOWOR Wie ws 
TO MET BCR IMY- MaM~ Bere SM sv-Ccaemcec 
oO 
ta 939 a 
ee ee 3am | A] >a3300—eMNm™ oer > Jj 
oO) ZINTUMYY VB NONNIYIUBY UV BUNOTUN 
o- gt PF tts $45: P43 R33 st FR 
@rored swOOt@OOaC ZT VOCO 2DAOCCOac A080 IE S54 Ow 
@MOFoOvrOFSOSEOV-OEIYAETEOAEZSO-OAVCFZaA 


NTR CEL OO <OusOC OOM 4a WMP Oe MO Ou - OW 
WWW & QOD 000 III COIIN SF ST TTT 
POCO COCO 

COOoOCCCOCOCOCOOCOOOCOOCOCOCOCOCOCOOOCOOOOOoOoOoOoO 
SOOOOOOOCOOOOOOCOOOOOOOOOOOOOOOOOO 


—ewe Ve ODO0- DO OQWYUNI- DOO”  - DODOWOADOs 
KONO & WOOK NOR WK MMV Oe VONOWWe Ou OO 


VWWWIO & OO L000 FP OF Kf uh ODOC O-f 
— ££ LOMDMNTMNNMOWO ON INODO LMUNNOOMOW 


oow 


w 
--—-O Oo 


_STRSCODE + 0000 


0 000000006 
000000006 


? 


67 


Routine Base: 


oouw 
go 
Oo 
Oo 
So 
o 
So 
Oo 
So 
oO 


000000006 


604 bytes, 


STRSAPPEND 
; Routine Size: 


1-007 


Se 4 


TRSAPPEND 18-00 $ep-1984 01:26:47 AX-11 Bliss-32 v4 Pa 1 
3158) 12-88-1882 93:28:55 | Heat eae sstaabpegn eS2.1 a 


: 1519 1 END ‘End of module 

3 338 1238 0 ELUDOM 
; PSECT SUMMARY 

: Name Bytes Attributes 

: _STRSCODE 604 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; osonnen= Syahelg ocecccee Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:00.8 

H COMMAND QUALIFIERS 

; PLISE/CHECK CF SELB. INITIAL .GPTURIZE) /MOTRACE/LIS0L 188: STRAPPEND/08) 908.)5 : STRAPPEND MSRC$:STRAPPEND/UPDATE=(ENH$: STRAPPEND 


Size: ot sete $ 0 data bytes 


3; Elapsed tae 00:43. 
; Lines/CPU Min 9 6 

3 Lexenes/CPU-Rin: 37768 
3 ry Used: 202 pages 
; eee ation Complete 
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